home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tab100 / tab.gbl < prev    next >
Encoding:
Text File  |  1995-09-06  |  4.1 KB  |  148 lines
  1. ''''''''''''''''''''''''''
  2. '   Application Globals
  3. ''''''''''''''''''''''''''
  4.  
  5.     Global Const App$ = "Tablanette"
  6.  
  7.     Global Const CardSpace = 50  'Space between cards
  8.  
  9.     Global Cards(1 To 52) As Integer  'Shuffled Deck
  10.  
  11.     Global Suits(1 To 4) As String
  12.  
  13.  
  14.     Global CardNo As Integer
  15.     Global TableNo As Integer
  16.  
  17.     Global PlayerNo As Integer
  18.     Global ComputerNo As Integer
  19.  
  20.     Global PSCore  As Integer
  21.     Global CSCore  As Integer
  22.  
  23.     Global PlayerCardsNo As Integer
  24.     Global ComputerCardsNo As Integer
  25.  
  26.     Global EqualRankGone(1 To 13) As Integer
  27.  
  28.     Global TableArray(1 To 15) As Integer
  29.     Global NewTableArray(1 To 15) As Integer
  30.     Global ValidPlay(1 To 6) As String * 1
  31.  
  32.     Global TableTotal As Integer
  33.  
  34.     Global Equal(1 To 3) As Integer
  35.     Global Valid(1 To 10) As String
  36.  
  37.     Global OptionSelected As Integer
  38.  
  39.     Global GameSwitch As Integer
  40.         Global Const PLAYER_MOVE = 0
  41.         Global Const COMPUTER_MOVE = 1
  42.  
  43.     Global DealSwitch As Integer
  44.         Global Const PLAYER_DEAL = 0
  45.         Global Const COMPUTER_DEAL = 1
  46.  
  47.  
  48.     Global PickUpSwitch
  49.         Global Const PLAYER = 0
  50.         Global Const COMPUTER = 1
  51.         
  52.  
  53.     Global TypeOfPlay(1 To 6) As Integer
  54.         Global Const TABLENETTE = 1
  55.         Global Const JACK = 2
  56.         Global Const ONECARD_NOEQUAL = 3
  57.         Global Const ONECARD_ONEEQUAL = 4
  58.         Global Const TOTAL_12 = 5
  59.         Global Const THREECARDS_PLUS = 6
  60.         Global Const TWOCARDS = 7
  61.         Global Const REJECTED_MOVE = 8
  62.  
  63.  
  64.     Global TypeOfDiscard(1 To 7) As Integer
  65.  
  66.     
  67.  
  68.  
  69.  
  70.  
  71. ''''''''''''''''''''''''
  72. ' General declarations '
  73. ''''''''''''''''''''''''
  74.     
  75. ' WinHelp API declaration
  76.  
  77.     Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  78.  
  79. ' WinHelp command constants
  80.     
  81.     Global Const HELP_CONTEXT = 1
  82.     Global Const HELP_QUIT = 2
  83.     Global Const HELP_DiaryIndex = 3
  84.     Global Const HELP_HELPONHELP = 4
  85.  
  86. ' MsgBox() function Button and Icon Types
  87.  
  88.     Global Const MBB_OK = 0
  89.     Global Const MBB_OKCAN = 1
  90.     Global Const MBB_ABRECAN = 2
  91.     Global Const MBB_YNCAN = 3
  92.     Global Const MBB_YN = 4
  93.     Global Const MBB_RECAN = 5
  94.     Global Const MBI_STOP = 16
  95.     Global Const MBI_QUES = 32
  96.     Global Const MBI_WARN = 48
  97.     Global Const MBI_INFO = 64
  98.  
  99.  
  100.     
  101. ' MsgBox() function command constants
  102.     
  103.     Global Const MB_OK = 1     'OK pressed
  104.     Global Const MB_CANCEL = 2 'Cancel pressed
  105.     Global Const MB_ABORT = 3  'Abort pressed
  106.     Global Const MB_RETRY = 4  'Retry pressed
  107.     Global Const MB_IGNORE = 5 'Ignore pressed
  108.     Global Const MB_YES = 6    'Yes pressed
  109.     Global Const MB_NO = 7     'No pressed
  110.     
  111. ' Booleans
  112.     
  113.     Global Const TRUE = -1
  114.     Global Const FALSE = 0
  115.  
  116. ' Show parameters
  117.     
  118.     Global Const MODAL = 1
  119.     Global Const MODELESS = 0
  120.  
  121. ' System Colors
  122.     
  123.     Global Const DESKTOP = &H80000001               ' Desktop
  124.     Global Const APPLICATION_WORKSPACE = &H8000000C ' Application Workspace
  125.     Global Const WINDOW_BACKGROUND = &H80000005     ' Window Background
  126.     Global Const WINDOW_TEXT = &H80000008           ' Window Text
  127.     Global Const MENU_BAR = &H80000004              ' Menu Bar
  128.     Global Const MENU_TEXT = &H80000007             ' Menu Text
  129.     Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active Title Bar
  130.     Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive Title Bar
  131.     Global Const TITLE_BAR_TEXT = &H80000009        ' Title Bar Text
  132.     Global Const ACTIVE_BORDER = &H8000000A         ' Active Border
  133.     Global Const INACTIVE_BORDER = &H8000000B       ' Inactive Border
  134.     Global Const WINDOW_FRAME = &H80000006          ' Window Frame
  135.     Global Const SCROLL_BARS = &H80000000           ' Scroll Bars
  136.  
  137. ' Colors
  138.     
  139.     Global Const BLACK = &H0&
  140.     Global Const RED = &HFF&
  141.     Global Const GREEN = &HFF00&
  142.     Global Const YELLOW = &HFFFF&
  143.     Global Const BLUE = &HFF0000
  144.     Global Const MAGENTA = &HFF00FF
  145.     Global Const CYAN = &HFFFF00
  146.     Global Const WHITE = &HFFFFFF
  147.  
  148.